home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / ram boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  57 lines
  1. 10 rem  ram boot
  2. 12 f$=chr$(34)+"[210][193][205][160][211][212][193][210][212]"+chr$(34)
  3. 15 goto45
  4. 20 print"[147]":poke53281,0
  5. 30 printspc(15)"[210][193][205][160][196][201][211][203]":return
  6. 40 :
  7. 45 gosub20
  8. 50 printspc(8)"[215]ritten by [202]eff [202]ohnson"
  9. 54 printspc(9)"[200]agerstown, [205][196]  21740"
  10. 56 :
  11. 60 print" [201]f you've ever been frustrated by the"
  12. 65 print"extremely slow speed of your 1541 disk"
  13. 70 print"drive then [210][193][205] [196][201][211][203] is for you."
  14. 75 gosub10000
  15. 80 gosub20
  16. 85 print" [210][193][205][160][196][201][211][203] takes away the tedious disk"
  17. 90 print"waits.  [201]t allows you to save up to 32"
  18. 95 print"[194][193][211][201][195] programs in memory at one time."
  19. 100 print" [217]ou can [204][207][193][196], [211][193][214][197], and [203][201][204][204] programs"
  20. 110 print"as often as you would like.  [217]ou can"
  21. 115 print"even look at the [210][193][205] disk's contents"
  22. 120 print"whenever you need to."
  23. 125 gosub10000
  24. 130 gosub20
  25. 140 print" [207][203], now you want to know how to use"
  26. 145 print"[210][193][205][160][196][201][211][203], right?"
  27. 150 print" [215]ell, to use [210][193][205][160][196][201][211][203][160]outside of the"
  28. 155 print"[204][207][193][196][211][212][193][210] environment, all you need to do"
  29. 160 print"is this:"
  30. 165 print"       1. [204][207][193][196]"f$",8
  31. 170 [153]"       2. (NULL)(NULL)(NULL)
  32. 175 print"[210][193][205][160][196][201][211][203][160]is now active (do not re-load"
  33. 180 print"[210][193][205][160][196][201][211][203] because you will lose all of"
  34. 185 print"files that you had previously saved)."
  35. 190 gosub10000
  36. 200 :
  37. 300 goto20000
  38. 10000 rem    keypress
  39. 10010 print""spc(13)"<press a key>";
  40. 10020 poke198,0:wait198,1:wait197,64:return
  41. 20000 rem   connect around
  42. 20010 print"[147]"
  43. 20020 print"      1. [204][207][193][196] [193][206][196] [210][213][206] [210][193][205][160][196][201][211][203]."
  44. 20030 print"      2. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]."
  45. 20040 print"[215]hich ?";
  46. 20050 poke198,0:wait198,1:geta$:ifa$<>"1"anda$<>"2"thenpoke53280,rnd(1)*15:goto20050
  47. 20055 printa$
  48. 20060 ifa$="2"thenf$="hello":goto63000
  49. 20070 print"    [193][210][197] [217][207][213][160][211][213][210][197]? [217][207][213][160][215][201][204][204][160][197][216][201][212][160][212][200][197] "
  50. 20072 print"        [204][207][193][196][211][212][193][210][160][197][206][214][201][210][207][206][205][197][206][212]. "
  51. 20080 poke198,0:wait198,1:geta$:ifa$<>"y"then20000
  52. 20090 print"[207].[203]., here we go..."
  53. 20095 f$="ram start"
  54. 63000 rem   connect back to ls
  55. 63010 print"[144]load"chr$(34)f$chr$(34)",8":print"run"
  56. 63020 poke631,13:poke632,13:poke198,2
  57.